******************************************************************************
* Share yes by precinct
******************************************************************************

use dataset_east_baton_rouge_cross, clear

gen myy = 30.467888
gen myx = -91.13973

forvalues year = 2000(10)2020 {
	
	#delimit;
	
	spmap pctyes using "dataset_east_baton_rouge_coords_`year'"
	,
		id(id`year')
		name(g`year', replace)
		title(`year', size(huge))
		clmethod(quantile)
		clnumber(10)
		ndfcol(white)
		ocol(
			white white white white white white
			white white white white white white
		)
		fcol(Greys2)
		legend(off)
		point(
			xcoord(myx) ycoord(myy) shape(Oh)
			size(vlarge)
			osize(thick)
			ocol(red)
		)
		;
	
	#delimit cr
	
	gr close
	
}

gr combine g2000 g2010 g2020, rows(1) ysize(1) xsize(3)
gr export "_output/figure A4 a.pdf", replace

******************************************************************************
* Share black by precinct
******************************************************************************

use dataset_east_baton_rouge_cross, clear

gen myy = 30.467888
gen myx = -91.13973

forvalues year = 2000(10)2020 {
	
	#delimit;
	
	spmap pctnhblack using "dataset_east_baton_rouge_coords_`year'"
	,
		id(id`year')
		name(g`year', replace)
		title(`year', size(huge))
		clmethod(quantile)
		clnumber(10)
		ndfcol(white)
		ocol(
			white white white white white white
			white white white white white white
		)
		fcol(Greys2)
		legend(off)
		point(
			xcoord(myx) ycoord(myy) shape(Oh)
			size(vlarge)
			osize(thick)
			ocol(red)
		)
		;

	#delimit cr
	
	gr close
	
}

gr combine g2000 g2010 g2020, rows(1) ysize(1) xsize(3)
gr export "_output/figure A4 b.pdf", replace

******************************************************************************
* End
******************************************************************************
